home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
logtho1a
/
basapica.bas
next >
Wrap
BASIC Source File
|
1999-09-05
|
527b
|
18 lines
Attribute VB_Name = "basAPICalls"
Option Explicit
'Used to get the logged in User's Name
Public Declare Function WNetGetUserA _
Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, _
lpnLength As Long) As Long
'Used for the GetUser routine
Public Function GetUser() As String
Dim sUserNameBuff As String * 255
sUserNameBuff = Space(255)
Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
GetUser = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)
End Function